function ValueResult=checkAuthorsEditorsNature(ValueAuthor,VecGroupCoAuthors,VecSpecialCharacters,ValueFilter)

VecTemp=VecGroupCoAuthors;
n4=1;
% n41=2;
TestTemp=0;
if ValueFilter==0
    n5=size(VecTemp,1);
else
    if size(VecTemp,1)>=1
        n5=1;
    else
        n5=0;
    end
end
while n4<=n5&&TestTemp==0
    n41=2;
    while n41<=VecTemp{n4,1}+1&&TestTemp==0
        ValueTemp2=VecTemp{n4,n41};
        if strcmps(ValueTemp2,ValueAuthor,VecSpecialCharacters)>=0.99
            TestTemp=1;
        end
        n41=n41+1;
    end
    n4=n4+1;
end
ValueResult=TestTemp;
            

